home *** CD-ROM | disk | FTP | other *** search
/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / database / qicaddres / !QicAddres / !RunImage (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1996-08-06  |  15.6 KB  |  841 lines
  1.  Name      QicAddress
  2.  Purpose   Finds and types in addresses for you
  3.  Version   1.10
  4.  Author    R.W.Lytton
  5.  Copyright R.W.Lytton 1995
  6.  Program   Not Public Domain
  7. &400EC,-1,-1
  8. d_%:U%=d_%-&8800:
  9. -U%:Cy%=
  10. :J_%=Cy%+U%:
  11. &406C0:
  12. j("QicAddress",&464,&660):
  13. &406C1:
  14. o:X%=Cy%:
  15.  W%256:
  16.  my%28:
  17.  cy%4:
  18.  R_%&70:
  19.  Y_%24:
  20.  K_%48:
  21.  v%20:
  22.  by%20:
  23.  D_%88:
  24.  s_%508:
  25.  T_%48:
  26.  L_%456:Z$=
  27. C("QicAddress$Dir"):F$=
  28. C("QicAddressFiles$Dir"):
  29. ("LOAD "+Z$+".Code.MoveDown "+
  30. ~(v%)):
  31. ("LOAD "+Z$+".Code.MoveUp "+
  32. ~(by%))
  33. ("LOAD "+Z$+".Code.Jump "+
  34. ~(Y_%)):
  35. ("LOAD "+Z$+".Code.FirstPass "+
  36. ~(R_%)):
  37. ("LOAD "+Z$+".Code.SecondPass "+
  38. ~(T_%)):
  39. ("LOAD "+Z$+".Code.MakeStack "+
  40. ~(K_%)):
  41. ("LOAD "+Z$+".Code.SortAlpha "+
  42. ~(L_%)):
  43. ("LOAD "+Z$+".Code.Search "+
  44. ~(s_%))
  45. ("LOAD "+Z$+".Code.Print "+
  46. ~(D_%)):
  47. e(Z$+".Messages"):l%=0:
  48. f:L%=0:My%=0:j%=0:_y%=0:Oy%=0:Sy%=0:P$="":ny%=0:_%=&70:ay%=2:
  49. f:!cy%=0:f%=0:Y%=0:d%=656:r%=0:py%=0:
  50. F(gy%,8)="Careware None registered copy"
  51. P(yy%)
  52. (Z$+".Options"):
  53.  L%=0
  54. #L%:L%=0:K%=u%:
  55. i:t%=
  56. #L%:u%=
  57. #L%:Gy%=
  58. #L%:Ay%=
  59.  t%=0
  60.  qy%=0
  61.  qy%=1
  62. O:t%=8:qy%=1:u%=32:Gy%=1:Ay%=90000:
  63. d:L%=
  64. (Z$+".Options"):
  65. #L%,k%:
  66. #L%,u%:
  67. #L%,Gy%:
  68. #L%,Ay%:
  69. #L%:L%=0:
  70. N:w_%=qy%:k%=t%:
  71.  K%<>u%
  72.  K%=u%:
  73. Ty%=Gy%:S_%=Ay%:
  74.  Hy%:Hy%=0:
  75.  k%=0
  76. A(P%,2,1<<21):Hy%=1
  77. Z(P%,2,1<<21)
  78.  k%=2
  79. A(P%,3,1<<21):Hy%=1
  80. Z(P%,3,1<<21)
  81.  k%=8
  82. A(P%,4,1<<21):Hy%=1
  83. Z(P%,4,1<<21)
  84.  k%=32
  85. A(P%,5,1<<21):Hy%=1
  86. Z(P%,5,1<<21)
  87.  Hy%=0
  88. A(P%,6,1<<21)
  89. Z(P%,6,1<<21)
  90. J(P%,7,
  91. (k%)):
  92.  Hy%=0
  93. Z(P%,7,1<<22)
  94. A(P%,7,1<<22)
  95.  K%=48
  96. A(P%,&D,1<<21)
  97. Z(P%,&D,1<<21)
  98. 3u%=K%:
  99.  Ty%=1
  100. A(P%,&E,1<<21)
  101. Z(P%,&E,1<<21)
  102.  7Gy%=Ty%:
  103.  S_%=&64
  104. A(P%,&F,1<<21)
  105. Z(P%,&F,1<<21)
  106. Ay%=S_%:
  107. &400D9,,Z$+".Templates":P%=
  108. M("Options"):gy%=
  109. M("ProgInfo"):yy%=
  110. M("Shareware"):b%=
  111. M("Register"):R%=
  112. M("Word"):s%=
  113. M("WordPane1"):dy%=
  114. M("WordPane2"):
  115. &400DA:I_%=
  116. P(a%):Z%!0=a%:
  117. &400CB,,Z%:Z%!28=-1:
  118. X(0):
  119. X(Uy%):
  120.  Z%!0=R%
  121. %jZ%!&64=s%:
  122. &400CB,,Z%+&64:my%!24=Z%!&80:
  123.  V%=0
  124.  my%!V%<>Z%!(V%+4)
  125.  my%!V%=Z%!(V%+4):Uy%=1:V%=24
  126.  Uy%=1
  127. &400C5,,Z%:
  128. &400C5,,Z%
  129.  Z%!28=-2
  130. &400CB,,Z%
  131. ,*Z%!0=s%:Z%!20=0:Z%!24=0:
  132. &400C5,,Z%:
  133.  Ly%:Z%!0=R%:
  134. &400CB,,Z%:Z%!0=dy%:
  135.  Y%=0
  136.  Ly%=0
  137.  Ly%=32
  138.  Z%!16-Z%!8>Z%!24+Y%*32+Ly%+_%
  139. /:Z%!16-=Z%!24+Y%*K%+Ly%+_%:Z%!20=0:Z%!24=0:
  140. &400C5,,Z%
  141. &400C6,,Z%
  142. F(a%):!Z%=a%:
  143. &400C6,,Z%:
  144.  R%:!Z%=s%:
  145. &400C6,,Z%:!Z%=dy%:
  146. &400C6,,Z%:my%!0=-1
  147.  N%,W$,Q%,V%,O%:ry%=
  148. A("MenuMain")):
  149.  q%52:Z%!0=s%:Z%!4=0:
  150. &400CE,,Z%:n%=Z%!28+1:$q%="":q%!&C=&70207:q%!16=268:q%!20=36:q%!24=0:q%!28=&84:q%!32=-1:q%!36=&7000121:q%!40=n%:q%!44=0:q%!48=96:$n%="":M%=X%:N%=0:V%=0:$(W%+40)=F$:
  151. &2000C,&C,(W%+40),W%,1,V%,40,0
  152. ,,,Q%,V%:
  153.  Q%=1
  154. W%!20=&FFF 
  155. 8,O%=1:
  156.  U%<&78+N%*40
  157. Z(&78+N%*40-U%)
  158.  O%=1
  159. :1M%!(8+N%*16)=0:$(M%+&C+N%*16)=
  160. S(W%+24):N%+=1
  161. :V%=-1
  162.  V%=-1:J%=M%+8+N%*16:$J%=
  163. A("MenuList"):J%?&C=7:J%?&D=2:J%?&E=7:J%?&F=0:J%!16=&C0:J%!20=44:J%!24=0:Q%=J%+4:
  164.  N%>0
  165.  V%=0
  166. N%-1:Q%+=24:!Q%=0:Q%!4=-1:Q%!8=&7000021:$(Q%+&C)=$(M%+&C+V%*16):
  167. :!Q%=2
  168. :Q%+=24:!Q%=0:Q%!4=-1:Q%!8=&7000021:$(Q%+&C)="Remove all":Q%+=24:!Q%=0:Q%!4=-1:Q%!8=&7000021:$(Q%+&C)="Save as set":Q%+=24:!Q%=&80:Q%!4=-1:Q%!8=&7000021:$(Q%+&C)="Show files":!M%=8+N%*16+28+(N%+3)*24:M%!4=N%:U%-=!M%:
  169.  W$:My%=
  170. (Z$+".Leafs"):
  171.  My%<>0
  172. #My%<>-1:
  173. #My%,W$:
  174.  S%=0
  175. M%!4-1:
  176. $(M%+&C+S%*16)=W$
  177. B?M%!(8+S%*16)=X%:J%!(28+S%*24)=J%!(28+S%*24)
  178. S(F$+"."+W$)
  179. #My%:My%=0:
  180.  W$,S%,Zy%:L%=
  181. (Z$+".Leafs"):
  182.  S%=0
  183. M%!4-1:Zy%=J%!(28+S%*24)
  184.  Zy%=1
  185. $(M%+&C+S%*16)<>""
  186. #L%,$(M%+&C+S%*16)
  187. #L%:L%=0:
  188. L(W$,o%,g_%,I%):
  189.  O%,P_%:O%=1:
  190.  U%<40
  191. Z(40-U%)
  192.  O%=1
  193. P_%=M%!4:A%=J%+28+P_%*24:B%=A%+40:C%=3*24:
  194.  by%:A%!(-24)=A%!(-24)
  195. 2:B%!(-24)=2+g_%:B%!(-20)=-1:B%!(-16)=&7000021:$(B%-&C)=W$:A%=J%:B%=A%+16:C%=28+24*P_%:
  196.  by%:!J%=I%:
  197.  o%=1
  198. $(J%+4)=W$
  199. $(J%+4)=""
  200. J!J%+=16:M%!4+=1:!M%+=40:U%-=40
  201.  Q$,S%:Q$=
  202. C("QicAddressFiles$Dir"):
  203.  F$<>Q$
  204. MUF$=Q$:S%=0:
  205.  S%<M%!4:$(M%+&C+S%*16)="":S%+=1:
  206. :S%=0:
  207.  S%<M%!4:
  208.  M%!(8+S%*16)=0
  209. A%=M%+8+S%*16:B%=A%+16:C%=(M%!4-S%-1)*16+28+S%*24:
  210.  v%:A%+=C%:B%=A%+40:C%=(M%!4-S%+2)*24:
  211.  v%:J%-=16:M%!4-=1:!M%-=40:U%+=40:
  212.  S%=M%!4
  213.  J%!(4+S%*24)=J%!(4+S%*24)
  214.  U%>By%
  215. Z(-U%)
  216. :S%+=1
  217. :V%=0:$(W%+40)=F$:
  218. &2000C,&C,(W%+40),W%,1,V%,40,0
  219. ,,,Q%,V%:
  220.  Q%=1
  221. W%!20=&FFF 
  222. S(W%+24),1,0,0)
  223.  V%=-1
  224. &400CF,,a_%:
  225.  ry%:
  226. :l%=0:
  227. ((a_%!8)
  228.  w%<>ry%
  229. w%<>q%
  230.  w%=J%
  231.  w%<>q%
  232. &400D4,,w%,Ky%,Ny%
  233.  Dy%:
  234. P(P%)
  235. P(b%):
  236. &400D2,b%,2,,,-1,0
  237. ("*Filer_OpenDir "+Z$+".Documents")
  238. 4:Dy%=Ty%:Ty%=1:
  239. M:Ty%=Dy%:
  240.  my%!0<>-1
  241. c2Z%!0=R%:
  242. &400CC,,Z%:
  243. &400C6,,Z%:
  244. &400C5,,Z%
  245. 5:fy%=1
  246.  I%,N%,S%:S%=!Z%:
  247.  S%+1>M%!4
  248. S%-=M%!4:
  249. ("*Filer_OpenDir "+F$)
  250.  M%!(8+S%*16)=0
  251. nKM%!(8+S%*16)=X%:J%!(28+S%*24)=J%!(28+S%*24)
  252. S(F$+"."+$(M%+&C+S%*16))
  253. My(M%!(8+S%*16)):
  254. $(M%+&C+S%*16)=""
  255. A%=M%+8+S%*16:B%=A%+16:C%=(M%!4-S%-1)*16+28+S%*24:
  256.  v%:A%+=C%:B%=A%+40:C%=(M%!4-S%+2)*24:
  257.  v%:J%-=16:M%!4-=1:!M%-=40:U%+=40:
  258.  S%=M%!4
  259.  J%!(4+S%*24)=J%!(4+S%*24)
  260.  U%>By%
  261. Z(-U%)
  262. :J%!(28+S%*24)=J%!(28+S%*24)
  263. 1:M%!(8+S%*16)=0
  264.  f%=0
  265. My(h%):
  266.  c%,z%,Qy%,A_%,ly%:
  267.  j%=0
  268.  j%=1:
  269. &406C0
  270. w#U%+=h%!16:f%-=h%!&C:
  271.  h%!20=d%
  272. x=d%=656:c%=cy%:
  273. !c%<>0:c%=!c%:
  274.  d%<c%!20
  275. c%<>h%
  276.  d%=c%!20
  277. !h%=0
  278. !(h%!4)=0:X%=h%
  279. :c%=h%!4:z%=h%:Qy%=!h%:
  280. :A%=z%:B%=Qy%:C%=Qy%!16:
  281.  v%:A_%=Qy%-z%:z%!8-=A_%:A%=z%!8:B%=A_%:C%=z%!&C:
  282.  Y_%:ly%=M%+8:
  283. !ly%<>Qy%:ly%+=16:
  284. :!ly%=z%:!c%=z%:z%!4=c%:c%=z%:z%+=z%!16:Qy%=!c%:
  285.  Qy%=0:X%=z%
  286. :A%=X%:B%=M%:C%=!M%:
  287.  v%:M%=X%:J%=M%+8+M%!4*16:
  288.  U%>By%
  289.  A_%=
  290. Z(-U%)
  291.  e%,I%,u_%:f%=0:Y%=0:d%=656:!cy%=0:X%=Cy%:A%=X%:B%=M%:C%=!M%:
  292.  v%:M%=X%:J%=M%+8+M%!4*16:e%=0:
  293.  S%=0
  294. M%!4-1:
  295. $(M%+&C+S%*16)=""
  296.     e%+=1
  297. :M%!(8+(S%-e%)*16)=0:I%=J%+28+(S%-e%)*24:!I%=0:
  298.  e%>0
  299. T$(M%+&C+(S%-e%)*16)=$(M%+&C+S%*16):I%!4=-1:I%!8=&7000021:$(I%+&C)=$(I%+&C+e%*24)
  300. :S%=M%!4-e%:
  301.  S%>0
  302.  J%!(28+24*(S%-1))=2
  303.  e%>0
  304. uA%=M%+8+S%*16:B%=J%:C%=28+S%*24:
  305.  v%:A%+=C%:B%+=28+M%!4*24:C%=72:
  306.  v%:J%=M%+8+S%*16:!M%-=e%*40:U%+=e%*40:M%!4-=e%
  307.  U%>By%
  308. Z(-U%)
  309. C(0):
  310. Y(N_%,Xy%,Fy%,B_%,__%):
  311.  Py%,sy%,m_%,h_%,j_%,I%:
  312.  Y%>0
  313. &400E6,1:
  314.  Xy%,B_%,d%,__%-B_%:
  315.  py%=1
  316. &400E6,0:
  317.  Xy%,Fy%-r%*K%-&E-_%,d%,32
  318. &400E6,7:Py%=(Fy%-__%-20-_%)/(K%):
  319.  Py%<1
  320.  Py%=1
  321.  Py%>Y%
  322.  Py%=Y%
  323. +sy%=(Fy%-B_%+&C-_%)/(K%):
  324.  sy%<1
  325.  sy%=1
  326.  sy%>Y%
  327.  sy%=Y%
  328. SB%=Xy%+5:C%=Fy%+&C-_%-(Py%*(K%)):D%=x%+4:E%=Py%:F%=sy%-Py%+1:G%=Cy%:H%=K%:
  329.  c_%,xy%,iy%:c_%=!Z%:xy%=Z%!4:!Z%=R%:
  330. &400CB,,Z%:
  331.  c_%<Z%!&C -&A 
  332. xy%<Z%!16
  333. iy%=0:
  334.  w_%=1
  335.  Z%!16-30-_%<xy%
  336.  Z%!24<0
  337.  iy%=k%*4
  338.  Z%!8+30>xy%
  339.  iy%=-k%*4
  340.  iy%=0
  341. g(xy%)
  342.  r%<>0
  343. &400CB,,Z%:Z%!24+=iy%:
  344. &400C5,,Z%:
  345.  r%<>0
  346. g(xy%):
  347.  ty%:ty%=(Z%!16-Z%!24-xy%+&C-_%)/(K%):
  348.  ty%<Y%+1
  349. ty%>0
  350.  r%<>ty%
  351. B:r%=ty%:py%=1:
  352. B:py%=0
  353.  r%>0
  354. B:r%=0
  355.  wy%,Xy%,Fy%:!Z%=R%:Z%!4=0:Z%!8=-r%*(K%)-&E-_%:Z%!&C=d%:Z%!16=Z%!8+(K%):
  356. &400C9,,Z%
  357. wy%:Xy%=Z%!4-Z%!20:Fy%=Z%!16-Z%!24:
  358.  wy%:
  359. Y(R%,Xy%,Fy%,Z%!32,Z%!40):
  360. &400CA,,Z%
  361. b:!Z%=s%:
  362. &400CB,,Z%:
  363. &400D4,,-1:
  364. &400D4,,q%,Z%!4+&E,Z%!16 -&A:w%=q%:
  365. &400CF,,Z%:Oy%=Z%!&C:
  366. !Z%=R%
  367. B:r%=0
  368. Ay(a%,T%,y%,Wy%,Z_%):
  369.  y%=4
  370. P(R%)
  371. P(P%)
  372. z(T%)
  373. y(T%,y%)
  374.  yy%:
  375. w(T%)
  376. V(T%,y%)
  377.  I%,V%:
  378.  r%>0
  379. ZI%=x%+4:V%=1:
  380.  V%<r%:
  381. !I%<Cy%:I%+=!I%:
  382. :I%+=4:V%+=1:
  383. !I%<Cy%:I%+=!I%:
  384. h($(!I%))
  385. z(T%):
  386. U:w%=J%:Ky%=Wy%-64:Ny%=Z_%+20:
  387. &400D4,,w%,Ky%,Ny%
  388.  ny%=0
  389.  ny%=1:_%=&C8:
  390.  ny%=0:_%=&70
  391. X!Z%=s%:
  392. &400CC,,Z%:
  393. &400C3,,Z%:Z%!8=-_%:Z%!48=-_%:
  394. &400C1,,Z%+4
  395. C(1):
  396. M:Sy%=1
  397.  ay%=0
  398.  ay%=2
  399.  ay%=0
  400. M:Sy%=1
  401. y(T%,y%):
  402. 2:t%=0:
  403. J(P%,7,"0"):
  404. A(P%,7,1<<22)
  405. 3:t%=2:
  406. J(P%,7,"2"):
  407. A(P%,7,1<<22)
  408. 4:t%=8:
  409. J(P%,7,"8"):
  410. A(P%,7,1<<22)
  411. 5:t%=32:
  412. J(P%,7,"32"):
  413. A(P%,7,1<<22)
  414. Z(P%,7,1<<22)
  415. &A:t%=
  416. F(P%,7)):
  417.  y%=4
  418. F(P%)
  419. &B:t%=
  420. F(P%,7)):
  421.  y%=4
  422. F(P%)
  423.  u%=32
  424.  u%=48
  425.  u%=32
  426.  Gy%=1
  427.  Gy%=0
  428.  Gy%=1
  429.  Ay%=&64
  430.  Ay%=&DBBA0:
  431.  Ay%=&64
  432.  t%=0
  433.  qy%=0
  434.  qy%=1
  435. w(T%):
  436. 1:fy%=1
  437. F(yy%)
  438. ("*Filer_OpenDir "+Z$+".Documents"):
  439. ("*Filer_Run "+Z$+".Documents.CFL")
  440. V(T%,y%):
  441. F(b%,2)="trousers"
  442. F(b%,6)):
  443.  y%=4
  444. F(b%)
  445. &400D2,b%,2,,,-1,0
  446. K("Careware None registered copy"):
  447.  y%=4
  448. F(b%)
  449. K(U$):
  450.  V%:L%=
  451. (Z$+".Templates"):
  452. #L%=704:
  453.  V%=1
  454. (U$):
  455. U$,V%)):
  456. #L%,&D:
  457. #L%:L%=0:
  458. J(gy%,8,U$):
  459. S(G$):
  460.  i%,g%,N%,hy%,Yy%,O%,I%,p%,V%:
  461.  j%=0
  462.  j%=1:
  463. &406C0
  464. g%=X%:L%=
  465. #L%:Yy%=(hy%+5)
  466. :hy%=0
  467. #L%:L%=0:
  468.  hy%<>0
  469. &O%=1:
  470.  U%<Yy%+40
  471. Z(Yy%+40-U%)
  472.  O%=1
  473. A%=M%:B%=X%+Yy%+24:C%=!M%:
  474.  by%:M%=X%+Yy%+24:J%=M%+8+M%!4*16:X%+=24:U%-=24:
  475. ("LOAD "+G$+" "+
  476. ~(X%)):B%=X%:C%=X%+hy%-1:i%=
  477. (R_%):X%+=Yy%:U%-=Yy%:
  478.  U%<i%*4
  479. Z(i%*4-U%)
  480.  O%=1
  481. A%=M%:B%=X%+i%*4:C%=!M%:
  482.  by%:M%=X%+i%*4:J%=M%+8+M%!4*16:g%!0=0:g%!8=X%:g%!&C=i%:B%=i%:D%=g%+24:F%=X%:p%=
  483. (T_%):X%+=i%*4:U%-=i%*4:p%=p%*16+20:
  484.  p%<372
  485.  p%=372
  486.  d%<p%
  487.  d%=p%
  488. Gg%!20=p%:g%!16=X%-g%:I%=cy%:
  489. !I%<>0:I%=!I%:
  490. :!I%=g%:g%!4=I%:f%+=i%
  491.  O%=0
  492. W("There is not enough memory available to load "+G$):_y%=1:X%=g%:A%=X%:B%=M%:C%=!M%:
  493.  v%:M%=X%:J%=M%+8+M%!4*16:U%=J_%-X%-!M%:
  494.  U%>By%
  495. Z(-U%)
  496. C(Uy%):
  497.  I%,Ly%:
  498.  Y%=0
  499.  Ly%=0
  500.  Ly%=32
  501. wZ%!0=R%:
  502. &400CC,,Z%:
  503. &400C3,,Z%:Z%!24=0:Z%!48=Z%!56-(Y%)*K%-&68-_%-Ly%:Z%!52=Z%!44+d%:Z%!8=Z%!48:
  504.  Z%!8<8
  505.  Z%!8=8
  506. &400C1,,Z%+4
  507. R%:Z%!0=R%:
  508. X(Uy%):
  509.  f%>0
  510. &406C0:O%=1:
  511.  U%<(f%+2)*4
  512. Z((f%+2)*4-U%)
  513.  O%=1
  514. 3x%=X%+M%!0:!x%=0:A%=!cy%:B%=x%+4:
  515.  K_%:
  516.  Ty%=1
  517.  A%=x%+4:B%=(f%-1)*4+A%:
  518. W("There is not enough memory available and it has been necessary to reset all files."):
  519. &406C1:Sy%=1
  520. :Y%=f%:
  521.  f%>0
  522.  P$<>$n%
  523. $n%,P$)=0
  524. !x%=0:P$=$n%
  525. $n%=""
  526. Sy%=0:
  527. !x%=0
  528.  B%=x%+4
  529.  B%=!x%
  530. C!x%=Cy%:C%=n%:D%=ny%+ay%:E%=x%:F%=S_%:Y%-=
  531. (s_%):
  532.  ay%=2
  533. $n%=P$
  534. !x%=0
  535.  Sy%=0:
  536. h(T$):
  537.  N%,Dy%,`y%:
  538. 6,&DB,0,&FF 
  539. ,`y%:$W%=T$:
  540. &400D3,,Z%:e_%=!Z%:
  541.  e_%=-1
  542. W("Where should I send the text? Please place the Caret in a window.")
  543.  N%=0
  544. ($W%)-1):
  545.  W%?N%=35
  546. #Dy%=W%!(N%+1)
  547. &20202020:
  548. &6E727472:
  549.  W%?(N%+5)=35
  550.  N%+=5:W%?N%=&A
  551. &75746572:
  552. (W%!(N%+5)
  553. &FFFFFF)
  554. &202020=&236E72
  555.  N%+=7:W%?N%=&A
  556. &23626174:N%+=4:W%?N%=`y%
  557.  Dy%=Dy%
  558. &FFFF:
  559. 9074:N%+=2:W%?N%=&A
  560. 9076:N%+=2:W%?N%=`y%
  561.  W%?N%>&7F 
  562. W%?N%<>`y%
  563. T(W%?N%):
  564. G(&E1972)
  565. G(&E1972)
  566. T(oy%):
  567.  Uy%:
  568.  oy%=&A 
  569.  oy%=&D
  570. 6,&99,0,(oy%)
  571. ;Uy%:
  572. G(6240):
  573. 6,&99,0,(oy%)
  574. ;Uy%:
  575. Z(m%):
  576.  Vy%,ky%:m%=m%
  577.  By%:
  578.  m%>-1
  579.  m%+=1
  580. Mm%=m%*By%:
  581. &400EC,-1,-1
  582. Vy%:ky%=Vy%+m%:
  583. &400EC,ky%,-1
  584.  ky%=Vy%+m%
  585. U%+=m%:J_%+=m%:Vy%=1
  586. &400EC,Vy%,-1:Vy%=0
  587. :=Vy%
  588. t:fy%=0:
  589. G(6144):
  590.  fy%:
  591. G(Uy%):
  592.  r_%:
  593.  j%=1
  594.  l%=0
  595. &400C7,(Uy%+l%),Z%
  596. &400CF,,Z%:
  597.  Z%!&C 
  598.  Z%!16=0
  599.  Oy%:
  600.  P$<>$n%
  601.  Sy%=1
  602.  l%=1
  603.  Oy%<>0
  604. Oy%<>Z%!&C 
  605. &400D4,,-1:Oy%=0:l%=0
  606.  j%=1
  607.  j%=0:_y%=0:
  608. &406C1:l%=0
  609.  Sy%=1
  610. n:l%=0
  611.  j%=1
  612.  j%=0:_y%=0:
  613. &406C1
  614. F(!Z%)
  615.  Z%!0
  616.  s%,Oy%,R%:l%=0
  617. !Z%=b%
  618. V(1,4)
  619. &400DC,Z%!24
  620. 17,18:
  621. W(A$):
  622.  H_%:$(W%+4)=A$:H_%=16:
  623. &400DF,W%,H_%,"QicAddress":
  624. M(R$):
  625.  ey%,F_%,Ry%,jy%,V$,K$:
  626. &400DB,,Z%,Q_%,x_%,-1,R$,0
  627. ,,Q_%:Z%!64=1:
  628. &400C1,,Z%
  629. &400D6,ey%,Z%+40,1+2+(1<<8),2+(1<<8):
  630.  Z%!40
  631.  F_%=40:
  632. :Z%!4=Z%!F_%:Z%!0=ey%:
  633. &400CE,,Z%:V$=
  634. S(Z%!28):
  635. &400C4,,Z%:Z%!32=1:Z%!4=ey%:
  636. &400C2,,Z%+4
  637. b_%:F_%+=4:
  638. (Z%!F_%)=-1
  639. :=ey%
  640.  T%:Z%!0=-1:Z%!4=0:Z%!8=0:Z%!&C=68:Z%!16=68:Z%!20=&3002:$(Z%+24)="!QicAddres":
  641. &400C2,,Z%
  642. T%:=T%
  643. J(a%,T%,A$):Z%!0=a%:Z%!4=T%:
  644. &400CE,,Z%:
  645. ((Z%!24)
  646. 256)=0
  647. 1,"Icon isn't indirected"
  648. 9=$(Z%!28)=A$:Z%!0=a%:Z%!4=T%:Z%!8=0:Z%!&C=0:
  649. &400CD,,Z%:
  650. F(a%,T%):Z%!0=a%:Z%!4=T%:
  651. &400CE,,Z%:
  652. ((Z%!24)
  653. 256)=0
  654. 1,"Icon isn't indirected"
  655. =$(Z%!28)
  656. A(a%,T%,W_%):Z%!0=a%:Z%!4=T%:Z%!8=W_%:Z%!&C=W_%:
  657. &400CD,,Z%:
  658. Z(a%,T%,W_%):Z%!0=a%:Z%!4=T%:Z%!8=0:Z%!&C=W_%:
  659. &400CD,,Z%:
  660. G(A$):
  661.  Jy%,Q%,M_%,Iy%,uy%,z_%:
  662.  Jy%28+
  663. W (A$)*24:Jy%!&C=&70207:Jy%!16=&8C:Jy%!20=44:Jy%!24=0:Q%=Jy%+28:$Jy%=
  664. A$,"\")-1):M_%=
  665. A$,"\")-1)):A$+="\"::
  666.  A$<>"":A$=
  667. A$,"\")+1):
  668. :!Q%=0:Q%!4=-1:Q%!8=&7000021:Iy%=
  669. A$,"\")-1:uy%=
  670. A$,Iy%),">"):
  671. :z_%=
  672. A$,uy%+1,Iy%-uy%)):Q%!4=z_%:Iy%=uy%-1
  673. :$(Q%+&C)=
  674. A$,Iy%):
  675.  Iy%>M_%
  676.  M_%=Iy%
  677. Q%+=24
  678. :Jy%!16=16*(M_%+1):Q%!-24=Q%!-24
  679. &80:=Jy%
  680. W(A$):
  681.  Ry%,jy%:Ry%=0:jy%=0:
  682. :jy%=
  683. A$,"\",jy%+1):
  684.  jy%<>0
  685.  Ry%+=1
  686.  jy%=0:=Ry%
  687. S(C_%):
  688.  N$:N$="":
  689. (?C_%<>&D)
  690. (?C_%<>0):N$+=
  691. (?C_%):C_%+=1:
  692. J(J$):
  693. J$,".")
  694. (J$)-
  695. J$,".")))
  696. j(H$,t_%,V_%):
  697.  Z%t_%:
  698.  Q_%V_%:x_%=Q_%+V_%:
  699.  a_%20:I_%=0:
  700. NLG_%=0:!Z%=1:Z%!4=3:Z%!8=&502:Z%!&C=0:
  701. &400C0,310,&4B534154,H$,Z%
  702. ,G_%:
  703. $+"atline"+
  704. (Wy%):
  705.  zy%36:zy%!0=36:zy%!&C=0:zy%!16=&81080:zy%!20=Wy%:$(zy%+24)="!RunImage":
  706. &400E7,17,zy%:
  707. W(A$):
  708. #My%:
  709. &400DD,G_%,"TASK":
  710. C(I$):
  711.  O_%:$W%=I$:
  712. &20023,W%,W%+55,&C8,,3
  713. ,,O_%:W%?(O_%+55)=&D:=$(W%+55)
  714.  wy%,n_%,N_%,Xy%,Fy%:N_%=!Z%:
  715. &400C8,,Z%
  716. wy%:Xy%=Z%!4-Z%!20:Fy%=Z%!16-Z%!24:
  717.  wy%:
  718. Y(N_%,Xy%,Fy%,Z%!32,Z%!40):
  719. &400CA,,Z%
  720.  y%,a%,T%,Wy%,Z_%:y%=Z%!8:a%=Z%!&C:T%=Z%!16:Wy%=Z%!0:Z_%=Z%!4:
  721. -2:Ry%=0:
  722. ((ry%!(28+Ry%*24))
  723. &80)=0:Ry%+=1:
  724. :w%=ry%:Ky%=Wy%-64:Ny%=&8C+Ry%*44:
  725. &400D4,,w%,Ky%,Ny%
  726.  R%,s%,dy%:
  727. U:w%=J%:Ky%=Wy%-64:Ny%=Z_%+20:
  728. &400D4,,w%,Ky%,Ny%
  729. Ay(a%,T%,y%,Wy%,Z_%)
  730.  M$,C$,U_%,o%,Zy%,`%:
  731.  Z%!16
  732. 0:fy%=1
  733.  Z%!40=&FFF 
  734. _tZ%!&C=Z%!8:Z%!16=2:Z%!36=-1:M$="<Wimp$Scrap.>"+
  735. S(Z%+44):$(Z%+44)=M$+
  736. (0):Z%!0=(
  737. (M$)+49)
  738. &400E7,17,Z%,Z%!4
  739.  _y%=0
  740. (Z%!40=&FFF 
  741. Z%!40=4096
  742. Z%!40=8192
  743. Z%!40=&DDC)
  744.  Z%!&C=0
  745.  U_%=0
  746.  U_%=1
  747. cFZ%!&C=Z%!8:Z%!16=4:
  748. &400E7,17,Z%,Z%!4:M$=
  749. S(Z%+44):
  750.  Z%!40=&FFF 
  751. d(C$=
  752. J(M$):
  753.  M$=F$+"."+C$
  754.  o%=1
  755.  o%=0
  756. Zy%=0:
  757.  o%=1
  758.  S%=0
  759. M%!4-1:
  760. $(M%+&C+S%*16)=C$
  761.  Zy%=1+J%!(28+S%*24)
  762. 2:`%=S%
  763. L(C$,o%,1,X%):
  764. S(M$):
  765. 1:J%!(28+`%*24)=J%!(28+`%*24)
  766. 1:M%!(8+`%*16)=X%:
  767. S(M$)
  768. q(M$)
  769.  U_%=1
  770. ("DELETE "+M$)
  771. &502:M$=
  772. P(Z%!32,Z%!36):Z%!0=(
  773. (M$)+25)
  774. 3:Z%!&C=Z%!8:Z%!16=&503:$(Z%+20)=
  775. M$,&E8):
  776. &400E7,17,Z%,Z%!4
  777. q(B$):
  778.  N%,q_%,C$,o%,Zy%,S%,`%:N%=0:
  779. :$(W%+40)=B$:
  780. &2000C,&C,(W%+40),W%,1,N%,40,0
  781. ,,,q_%,N%:
  782.  q_%=1
  783. S(W%+24):
  784.  W%!20=&FFF 
  785.  B$=F$
  786.  o%=1
  787.  o%=0
  788. Zy%=0:
  789.  o%=1
  790.  S%=0
  791. M%!4-1:
  792. $(M%+&C+S%*16)=C$
  793.  Zy%=1+J%!(28+S%*24)
  794. 2:`%=S%
  795. L(C$,o%,1,X%):
  796. S(B$+"."+C$):
  797. 1:J%!(28+`%*24)=J%!(28+`%*24)
  798. 1:M%!(8+`%*16)=X%:
  799. S(B$+"."+C$)
  800.  W%!20=4096
  801. W%!20=8192
  802. q(B$+"."+C$)
  803.  N%=-1
  804. _y%=1:
  805. e(X$):
  806.  X_%,f_%:
  807. &41500,,X$
  808. f_%,,X_%:
  809.  y_%X_%
  810.  vy%256:$(vy%+16)=X$:
  811. &41501,vy%,vy%+16,y_%:
  812.  v_%256:
  813. A(L$):
  814. &41502,vy%,L$,v_%,256,0,0,0,0
  815. ,,D$:=D$
  816. &41504,vy%:
  817. P(a%,T%):
  818.  S$,L$:S$="":
  819. -2:S$=
  820. A("Bar")
  821.  R%:S$=
  822. A("Word")
  823.  s%:S$=
  824. A("WordTop"+
  825. (T%))
  826.  dy%:S$=
  827. A("WordBot"+
  828. (T%))
  829.  P%:S$=
  830. A("Opt"+
  831. (T%))
  832.  b%:S$=
  833. A("Reg"+
  834. (T%))
  835.  yy%:S$=
  836. A("Share")
  837.  gy%:S$=
  838. A("Info")
  839.  S$=""
  840. A("Default")
  841.